Program Names Disk Copy (1 or 2 drives) v. 1.24 
Firrogramer's Name: George Chambers 


Sou cet Original Program 

keyed bys George Chambers 

Date Keyed: Toronto, Ontario, 1988 
Note: Larken utility Dcopyi12.BH11] 


PROGRAM LISTING 


100 REM Disk Copy Fragm (v1.24) for the LARKEN system 

110 REM By G. Chambers 14 Richome Court 
Scarborough, Ont. CANADA MIE 2Y1 

120 REM Use to copy a disk with a l-e or 2-drive system 

1320 REM Data statements contain Drive Control Code. 

140 REM For use with the DGk4o00 system of $5090 bytes/track 


Using a DD drive i.e.dO tracks 

145 RANDOMIZE USR 100: DPEN #4, "dd" 

130 PRINT #4: LOAD "Move .Ci"CODE 32000 

170 RESTORE VAL "210" 

180 FOR m=VAL "63000" TO VAL "63047" 

190 READ a: POKE n,a 

OOO NEXT n 

210 DATA 195,43,246,0,0,0,0,0,0,243,205,98,0,201,959 

220 DATA 100,0,2351,201,20958,23,246,59,176,92,50,29,252,2025,126 

220 DATA 0,205,122 ,0,223,112,32,17,156,224,1,0,20,237,176 

240 DATA 195,358,246 

280 LET trac=VAL "22726": LET loadbuf=VAL "62000" 

290 LET namesVàL "576808" 

200 BORDER FI/FI: FAFER FI/FI: CLS 

410 GO SUB VAL "Goo" 

A420 FRINT AT VAL "2",VAL "7"s INE VAL "2" PAPER VAL "6"; "LARKE 
لا‎ DISK UTILITY”; PAPER ۳۲۸/۱۳] و و‎ TAB VAL "änt PAPER VAL "6"; "Disk 
Copying-1 or 2 Drives"; PAPER VAL "1",,TAàB VAL "7"; PAFER VAL ۵ 
"s "By George Chambers" 

uu INE VAL "Ai PLOT NOT PI VAL "108": DRAW NOT FI,VAL "62": D 
RAW Vel "asw a NOT Pir DRAW NOT FI,VAL "-62": DRAW VAL "—259",NQT 

FI 

A40 INE VAL "6": PLOT VAL "8" ,VAL "114": DRAW NOT PI,VAL "So's 
DRAW VAL. "2358", ,NOT PI: DRAW NOT FI,VAL "—-5O0"s DRAW VAL "-2380",NÜO 
T Fi: INK VAL "7" 

ew PRINT '''"Install the disk to be copied"'" in the originat 
ing Drive"'",,.., then Fress a key"': FAUSE NOT FI 

292 INPUT "Enter the Orig. Drive No. (O14) "30drv 


A PRINT #4: GO TO ۷ 
494 INPUT "Enter the Dest. Drive No. (0-4) "sDdrv 

S PORE VAL 27658., VAL PB": LET rgs" "N"; INPUT "Select files t 
Oo gave? Y/N" sr# 

A60 REM Picking pgm names from buffer (Track ©) 
270 POKE trac, NOT PI: RANDOMIZE USR loadbuf 

2830 PRINT AT VAL "LO" NOT Fisge#’c#' cts TAB VAL "9" "Files on Dis 


290 FOR nz FI/FI TO VAL ۲ 
400 LET esr 
410 IF PEEKE (namet2) =NOT PI THEN LET emmel: LET m=VAL "9o": GO 
TO VAL "480" 
420 IF PEER (nametPil/PT)=VAL "254" THEN LET name=nametVAL "ZA: 
30 TO VAL "410" 
420 FOR mePI/PI TO VAL "9" 
440 LET d£in,m)sCHRE PEEK ۱ 
480 NEXT m 
460 LET namesnamerVAL "x4" 
470 PRINT AT VAL "1S", VAL "LL" 0 (nN)? 
480 NEXT n 
490 FAUSE VAL "3OÓ"s PRINT AT VAL "14" ,NOT ۳۳1 23 انا‎ TAR VAL "14 
"seg" files on disk" 
SOO DIM €## (VAL "nm" 
wae PRINT AT VAL "LEA" VAL "7" "File being copied" 
wel FOR ۳م [ شاد‎ ۲ TO e 
Sow PRINT AT VAL "16" NOT PICE 
S40 LET fXsdéÉ£n) 
S45 IF FEI ۰ ۲۲۲/۲ THEN FRINT AT VAL "21",NOT Pisc#sAT VAL "21", 
VAL. HRU 1 "Copy ۱۱ ۱1 n 1 $ CH ۱۱ tu Y/N?" 
SAG LET SEY": IF ۳ r N” THEN INFUT TAB VAL "27"; BF 
S47 IF eëiiisenmhNi THEN GO TO 680 
DO GO SUB OrgDrv 
qu PRINT AT VAL '"21",NOT PIs cs 
2360 FOR asbl /bl TO VAL "9": PORE Onamta,CODE f# (a): POKE Dnamta 
CODE f£(a): NEXT a 
3970 FRINT AT VAL "15",VAàL "LIN yg Fé 
380 FRINT #4: GO TO Odry: LET rt=USR indir: IF ۳۳۰ بت‎ THEN GO TO 
rt 
S903 LET rtzUtsR Lodi: IF rts NOT FI THEN GO TO rt 
600 LET Tlen=FEEK VAL "“S4O002": LET passcFI/PI: IF Tlen> (PEERK Nb 
CS) “j THEN LET Fagse=VAL "2" 
610 GO SUB DesDrv 
420 LET rtJ SR Svnams IF rts NOT PI THEM GO TO rt 
AQ LET etsUSR Svdatas IF ret NOT FI THEN GO TO rt 
640 IF pass:-cPI/FI THEN GO TO VAL "670" 
650 GO SUB OrgDrvs LET rtzUSR Ld2s IF rt NOT FI THEN GO TO rt 
660 GO SUB DesDrvs: LET rtzUSR Svdatas IF rt NOT FI THEN GO TO 
"m 
670 LET rt=USR Svend: IF ۳۳۰ NOT FI THEN GO TO rt 
480 PRINT AT VAL "18",VAàL "i14"yng"  copied/skipped" 
690 BEEF VAL "JA", VAL "10": BEEF VAL ".1",VÀL. "10" 
700 NEXT n 
705 PRINT #4: GO TO © 
710 FOR n=VAL "lo" TO VAL "21": PRINT AT n NOT Pise#s NEXT n 


i 


720 PRINT AT VAL "IS" VAL "6"; "Disk copy completed"''"Press P 
key tor RAMdisk menu, or another key to copy next disk" 

730 FAUSE NOT FI 

740 IF ۳۳:۳ ۷3۵۰ 2F" AND INKEY#<> "9" THEN RUN 

790 PRINT #4: GO TO 4: ۳۳:۲۲ #4: NEW 

BOO LET MameVAL "TABOO: LET OwkawsVAaL "224700": LET DwkasVAaL "24 
790"s LET Onam=VAL "34599": LET Dnam=VAL "34649" 

810 LET indirsVAtL "52000": LET LdisVeL "2o00X": LET Lde@=VAL "I2 
OO6": LET Svnam=VAL '"Z2009"s LET Svdata=VAL "'X2012": LET Svend=V 
AL "DEOL": LET RenamzVyaL IZOL" 

820 LET OrgDrveVAL "870": LET DesDreveVAL "190": LET Nbes=VAL "3 
4003's LET Beizge=VAL ۲ 

40 REM DDen Hsize=S120 Nbes=7 oDen BHesizxes2090 Nbcs-14 

840 FOKE Nbes, VAL "7": PRINT #4: FOKE Beize, MOL "3120" 

geo DIM AF (VAL "9O" VAL. P9): LET cite 

Beo RETURN 

870 IF Odrvs»Ddrv THEN FRINT #4: GO TO Odrvs RETURN 

ago INFUT "Insert Source Disk-Fress ENTER"; LINE af: RETURN 

890 IF Oderve sDadrvy THEN FRINT #4: GO TO Ddrcvs RETURN 

QOO INFUT "Insert Dest'n Disk-Freses ENTER" LINE af: RETURN 

910 STOF 
8999 STOF 
9000 CLS : LET ode4: PRINT AT 15,93 "SAVE ROUTINE"''" Frege ۸۲ 

key to save to disk,"''" op ""T"" key to save to tape": PAUS 
E Q 
9010 IF 1۱۳ ۷۰۵ ۰ OR INKEYSXs"T" THEN LET od=2 
9020 PRINT sod: SAVE "copyl2.B1" LINE 100 
90:0 PRINT dod: SAVE "Move .CI"CODE 32000,1000 


Program Names Format A Disk 
br-oor amer "e Name: Larry kenny: George Chambers 


SGourcet Original program 
keyed by: George Chambers 
Date keyed 1°88 

Noten Larken utility 


PROGRAM LISTING 


10 RANDOMIZE USR 100% OREN #4, "dd" 
SU CLS s FRINT 8 PRINT "LAREKEN FORMAT and COPY FROGRAM" 
AO CIRCLE 192, 100,10 
40 PLOT 162,70: DRAW 0,408 DRAW 60,0: DRAW Oebs DRAW -60,0 
YO PLOT 190,743 PRINT #4: DRAW 3,14, 1 
60 PRINT #4: CIRCLE 202,90,2: PRINT #4: CIRCLE 172,100,2: PRIN 
T #4: CIRCLE 172,90,2 
79 PLOT 162,110: FRINT #4: DRAW 5,6,1: PLOT 162,111: PRINT #4: 
DRAW 4,4,0 
75 FRINT AT 6,214 "LARKEN" 
HO PRINT AT 8,03; "Select One" 
90 FRINT AT 15,03 "Format a New Disk 1 ۵و۰‎ 17,0; ” Copy entire 
Disk ‘A'm AT 19,0; "Save this program "Ain PRINT "to Disk" 
ioo INPUT "Enter 1,2 or 3 "s LINE af: 
110 IF aëei Ain THEN GO TO 1040 
120 IF age"1" THEN GO TO 160 
1:10 IF aëei an THEN GO TO 360 
140 GO TO 100 
150 STOF 


160: CLS : PRINT "FORMAT PROGRAM for LARKEN ۳ 
170 POKE i36990,0: PRINT s: PRINT " "s FLASH 1" Enter Disk 
Name" 


175 PRINT "Press STOP (SS ‘’A’) to end name's PRINT 
Lux PRINT "Disk Mame s: ۶ 

190 LET mz41000 

S200 LET ate INKeYés IF IMEKEYS:z'"" THEN GO TO 200 

310 IF CODE ateo THEN GO TO 200 

Ze BEEF .02,1 

2250 IF CODE a$2z12 THEM FRINT CHRE Os CHRE F72 CHRE 8s: LET mzm-is: 
GO TO 280 

240 IF CODE af=226 THEN FOKE m,O: GO TO SOO 

200 FORE m CODE at 

260 PRINT adf; 

270 LET ۳۳ i 

290 IF INKEYXZA"" THEN GO TO 280 

290 GO TO 200 

400 FORE met BEEF .1,20: BEEP .1,20: PAUSE So: CLS 


S10 GO SUB 7950 REM Set Parameters 

A19 REM PRINT "Drive Faranetera's PRINT و‎ PRINT "Drive #",cdv-1, 
"Head Speed",h,"No of Sides",a,"No of Tracks" ,numtr ks 

316 LET hee: PRINT "Drive Parameters’: PRINT s PRINT "Drive #", 
dv-1,"No of Sides",a,"No of Tracks per side",numtmks 

218 PRINT : PRINT " Remove WRITE PROTECT Sticker" 

A0 INFUT "Ok to Format Cy/n) T3 LINE ate IF agen" OR &$z"N' 
THEN BEEF ,1,10 BEEP .1,08 RUN 

M0 RANDOMIZE USR 40000. REM Format 

440 REM CLS : BEEF .1,10: BEEF .1,10: INFUT "Save Format Frog t 
o Disk 7 "sat: IF a£z"n" THEN RUN 

S41 CLS : BEEF 1,10: BEEF ,1,10: INFUT "Any more disks to Form 
at? (Y/N) "¢ LINE ats IF ate"y" THEN GO TO 160 

dd REM GO TO 1040 

460 GO TO 10 

270 REM 

SBO CLS s PRINT "-—-—-— LARKEN ELECTRONICS ----" 

AGO0s PRINT AT 2,48 "Disk Backup Program" 

400 PRINT s: PRINT " This program is for Copying an entire di 
sk between 2 drives. The drives should have the same number of tr 
acke and sidem." 

4035 PRINT s: PRINT "Remove WRITE FROTECT Sticker " 

410 GO SUB 920 

420; PRINT 

430 INPUT FLASH i:"Onrigin"sg FLASH Og" Drive (O-3) "sar IF a23 T 
HEN GO TO 430 

440 BEEF „1,10: LET ac-ati: LET Orgs2"ati 

450 PRINT "Copying from Drive "saeig 

460 INFUT FLASH i1:"Destination"s FLASH O:" Drive (O-3) "sbs IF 
Dx THEN GO TO 460 

470 BEEF .1,10: LET beb+1: LET cdeszs2"^b: 

480 FRINT " to Drive "yif 

490 PRINT s: PRINT " Sides — "aseicd,"Treacke = “yNumtrks 

WOO FORE 23692,255s PAUSE Sos INPUT " Frege any key to copy " 
LINE ag 

IO LET seavezc4o0125: REM save buffer to disk 

QA LET loads40012: REM load disk into butter 

wed LET Sprt:zs40009: REM Send Drive data to port 

S40 LET setrk=40003! REM move head 

wu LET nextrkz40006: REM inc trac pos or switch sides 

HOO LET tracmaxxo0s REM trac # MC variable 

2570 LET Deve4ah01le REM Drive # MC variable 

S300 LET Treg=18: REM FDC track register 

290 FORE tracyO: POKE drv,org: RANDOMIZE USR setrk 

600 PAUSE SOs FORE drv,dess RANDOMIZE USR setrk 

410 LET orgTsO: LET desTasoO 

620 PRINT s: PRINT "Block # '"; 

620 FOR aso TO (GNumTrks*2)-—1 

640 PORE drev,orgs RANDOMIZE USR Sprt: PAUSE 20: RANDOMIZE USR I 
wad 

wi PAUSE 20s POKE drv dess RANDOMIZE USR Sprt: PAUSE 40: RANDO 
MIZE USR save 

660 RANDOMIZE USR load 

670 FORE traca: OUT Treg, desT: PAUSE 20: RANDOMIZE USRA nextrk: 


IF sid=1 THEN RANDOMIZE USR nextrk 

OBO LET deaT=IN Tred 

690 POKE drv,org:s RANDOMIZE UBR Sprts PORE traca: OUT Treg, or ¢ 
Ts PAUSE 20s RANDOMIZE USR nextrcks IF eidel THEN RANDOMIZE USK n 
ex ۳ 

700 LET orgT=IN Treg 

710 IF sid=1 THEN PRINT (orgT*2)-—2:" "ss LET arati 

720 IF wid=2 THEN FRINT asi" ۶ 

720 NEXT à 

740 PRINT : PRINT : PRINT " FINISHED ": BEEF 1,20: FAUSE us RUN 


750 
760 
770 
780 REM «e DRIVE PARAMETERE ss 
790 INPUT "Drive © to A T "adye: 
BOO IF dyta THEN GO TO 790 
gio PRINT #4: GO TO dvi LET dvsdvti 
820 LET amsz^dvs POKE 425 201,a 
exo PORE 43312,0: REM GO 12-1 20-2 SOE 
840 REM INFUT "Head speed 6 12 20 30 MS ? "gh 
950 REM IF hzxé OR hzi12 OR مامت‎ OR bei THEN GO TO 870 
860 REM GO TO 840 
870 REM IF he& THEN LET aso 
890 REM IF hs12 THEN LET asi 
890 REM IF heed THEN LET ase 
900 REM IF bheäo THEN LET asm 
905 LET aso 
910 POKE 4312,24 
920 INFUT "Number of Sides "ji or 2° "sa 
930 IF asi THEN GO TO 960 
940 IF asm THEN GO TO 960 
950 GO TO 920 
960 LET seidsa: POKE 4*X310,2a 
970 INFUT "Number of Tracks 35,40 or GO "sNumteks 
930 PORE 423211,NumtrÉks 
990 RETURN 
1000 STOF 
1010 RANDOMIZE USR 100: OPEN #4, "dd" 
1020 FRINT #4: LOAD "code, Cl "CODE 
LOO RUN 
1O40 REM asss SAVE TO DISK Së 
1050 PRINT #4: SAVE "FORMAT, BL" LINE 1010: PRINT 44: SAVE "Hcode 
1 "CODE 40000,2000:5 BEEF ,95,109 RUN 
LOGO REM ۷۷ GAVE TO TAFE 3%% 
1070 FOR s=1 TO An PORE 22736,181: SAVE "FORMAT. BL" LINE 1080: P 
AUSE 40: PORE 227236,181: SAVE "Hcode.CI"CODE 40000,2000: FAUSE 4 
O: PRINT "sinnn NEXT s: STOF 
1080 LOAD "Hcode.CLI"CODE 40000 
1090 RUN 


Program Names ASCIT Search == Larken Version 
Frogramer's Names Francisco Fhinos David Solly 
Sources YS Mag., March 1989 & Original 
keyed bys David Selly 

Date keyed: 14 April 1989 

Note: Spectrum Program 


PROGRAM LISTING 


10 BORDER ©: PAPER Os TNE 7s CLEAR 26499: CLEAR & RANDOMIZE US 
m JOO! LOAD "as سا‎ CODE EON 
SO PRINT FLASH وت و16۸ ۱و1‎ ۲ LOAD "s GO SUB X20: RANDOMIZE US 
100: LOAD mgt", EI "CODE S600. CLs 
40 GO SUE 400: PRINT AT 8,8; "NAME :"sb#sAT 10,0: BYTES "scs FA 
USE Of CLS f LET هتسه‎ LET bea 
20 CLS ¢ IF Cak7O4) 2655-9 THEN LET as Zén 
40 LET possas FOR yeO TO ala FOR xed TO Ai 
62 IF ۳۳۲ posita AND ۳۳۳۳ pos< 1465 THEN PRINT AT yax CHRE (PEE 
bk opos) 
eX LET posspostl 
63 NEXT xt: NEXT y 
70 PRINT ۴۲۵۸۲ 1,04 "SCREEN Dr "gag e g atO, LET bear LET xz: 
LEI wm 
80 INE 7:9 PRINT AT yaxa FLASH Os OVER tan " 
9O IF ۱۳ ۷۲۰۰۲۵۲ AND «A1 THEN LET xsmekis LET Debt) 
190 IF INKEYXz"o" AND xO THEN LET xexeds LET b=b-1 
110 IF INKEY#="q" AND yro THEN LET yzy-1: LET b=b-32 
120 IF INKEYdXs"a" AND yal THEN LET yeyris LET bsb tTa 
130 TF ۲۳۳۳ ۲ ۲2۵ ۲۳۱۲ THEN LET asatZoär GO TO 50 
140 IF INEEYSz'"t" THEN GO TO 220 
150 IF INFEY#="d" THEN INFUT :"DIKECTIONs"sas GO TO 30 
160 IF INFEY#="s" THEN CLS s: LET ndend-".02!'"s RANDOMIZE USR 1900 
: SAVE nXCODE aser RANDOMIZE USR 100: LOAD n€CODE : RANDOMIZE USR 
1600s POKE 8324,vs RANDOMIZE USR 232002 RANDOMIZE WSR 100: MOVE 
ne bx: PRINT AT 10,1343 "SAVED": ۳ 
170 IF INKEYX-'"I" THEN CLS : GO TO 1 
LBO PRINT HAAT ولا‎ 1۱۵ ag my at PON 
190 INK Sa PRINT OVER 1i FLASH LAT ۷ 4و‎ ۲ "¢ FLASH © 
UO. PRINT SOOT ©, 215" "SAT O,0% OVER Og "DIRECTION: "sty "-CHRE 
"FEE b 
210 GO TO Du 
220 PRINT #02 AT 1,235 "TRANSLATE" 
ZA TNE Dn PRINT AT wan FLASH is OVER lg” " 
240 FAUSE Of LET ate NEE Y$ 
a0 IF CODE بل هه‎ THEN FRINT #0: AT 1,233" "s GO TO 170 
2600 IF CODE یر تخت‎ THEN IF لسن بر‎ THEN LET x=x-ls PRINT OVER 1; FL 
AGH OAT ۷۰۳۱ ۲ "s LET bebei: GO TO 230 


270 PRINT AT wan OVER Cy aft 
280 PORE by, CODE ad 
290 IF xeml THEN LET xseris LET beb i 
A00 PRINT OVER 18 FLASH OAT ۷ زو‎ " " 
410 GO TO 230 
220 INVERSE 1: FRINT AT 21,0:;" Enter program name in full "s 
INFUT be: INVERSE © 

oO) LET n$sbXOLl TO (LEN D-52508 RANDOMIZE USR LOO; MOVE he, mike" 
Cl": RETURN 
A400 RANDOMIZE USR LOO: PORE 200,92265 L 
40% RANDOMIZE USRA 190%. FORE G(:200,]0527*: سا‎ 
HO LET certame] 
406 RANDOMIZE USR 100: PORE ]8200,0224:5 LET veUSR 110 
407 RANDOMIZE USK 100: FOKE 8200, 832352 LET deUsSR 110 
409 LET vsv-296*cd 
WOO RETURN 


I cwUSR 110 
ZI deUSR 110 


mm 


The following machine code is loaded at address 23300, 


a ی‎ Oey 


Contd LPS 


au Q 


لب 


ae CH C A3 


OS 
23304126 
EEC) 
aidé OVE 
Saal? 120 
et IBC 
anuo 
ی ل ا ل ی‎ 
nl LO 
et ux 1 ^M 


AC 
a 1 EC) 
a LAO 
snl cQ 
usn 60 
AuWGi7O 
oo dl 
a AIO 


oN Oe) 


The following machine code ie loaded at address 23500, 


oO) aps 
nn 1 998 

23:502 d 

REN: 205 
Eet 1:26 
n 9 

MATT. vU 
kd 120 


ti C) 
2309 195 
solu 186 


Ska Oo 
sala d 
ERR O 
SERA S nd 4 Q 
| 8 


23316 Q 
23317 O 
maa d E Q 
23319 0 


foy age ma میم‎ 
m NONO S 


G0 TO 40 


Program Names Larken Disc Editor 
Programer’ s Namen larry Kenny 

GOLER Original Program 
keyed bys larry Kenny 

Date Keyed: Navan, Ontario, 1988 


Notes Larken DOS Utility Program 


PROGRAM LISTING 


a REM --LARKEN DISK EDT TOR 
A REM Ey Larry Fenny 
D REM c LARKEN ELECTRONICS 


é 
7 REM Save to Disk at 6000 
Gi 


10 CLEAR : BORDER Os PAPER Os INE 7: CLS 


29 CLEAR A4x400 PRINT AT 7,45 "LOADING..." RANDOMIZE USK 1001 


OPEN 34," dd" 
40 PRINT #42 LOAD "Edit,.,Ci"CODE 44000 
a PRINT #4: LOAD "EDbas.CIi"CODE 60000 


a6 FRINT #4: FORE 90218,62700—-2256: REM Addr of Window Chars Set 


-255,0: DRAW O,-140 
LARKEN DISK EDITOR" 


DRAW 
240 PLOT 0,145: DRAW 255,0: PRINT AT 2,43" 


40 LET Sergi 1 s44200 

QO LET Serol 244400 

6O LET Fede e446o0 

70 LET ۲۳ ۵ 4 ZOO 

GO LET Deve od 1 

OO LET Cdeve4 4a 1 os 

100 LET bufono 

110 LET Settreks44000 

120 LET Nexterk 44008 

120 LET Format #45000 

140 LET Loadmks44006 

150 LET Gasen 

160 LET peeekz4401:2 

170 LET Neid 2910 

180 LET Nitka 297 1 

190 LET Hspdzazo912 

A00 LET peekwzAgdzo20 

SLO PRINT #4: 60 TO FEER Cery 
ced BORDER Os: PAPER Os: INE 7: CLS 
zuo PLOT Oy 302 DRAW 255,085 DRAW O,140: 


A PRINT AT 6,45"1 Edit data on digk";sAT 7,44"2 Read Disk He 
adders "$ AT 84۱ ۲۰۸ Change Head Speed g AT 9,4$"4 


Reformat Single 


Black "AT 10048 ۰۵ Initialize Directory 


2602 PRINT AT ۱۱۱ ۲۵ Map out Bad Blocks"sAT 12,48"7 Change Di 
ek Name"sAT 13,4" Cat/Goto Drive (Now "SPEER Cereve") "SAT 14, 
44"9 Display Track Map" 

270 PRINT O; Press 1 to is 

ZO IF TNKEY#e"" THEN GO TO 280 

430 INFUT 4 

S00 IF INKEVY#2"1" THEN GO TO &8oo 

$10 IF INHKEY£z"2" THEN GO TO 440 

mad IF INEEYXsX" THEN GO TO 1470 

moO IF INKEY#="4" THEN (GO TO 1590 

A440 IF INEEYSZz"S" THEN GO TO 1780 

200 IF ITNEEY#e "6" THEN GO TO 2470 

A460 IF INKEY#="7" THEM GO TO 1890 

570 IF INHEEYX-"QG" THEN CLS : GO TO 400 

ABO IF INKEY#e "9" THEN CLS : GO TO 2270 

490 GO TO 270 

400 INFUT "Drive # O — 4 2"; LINE d$: IF d#="" THEN GO TO 420 

410 IF CODE AFAR OR CODE ی لا‎ THEN GO TO 400 

420 PRINT #4: GO TO VAL dës FORE cdrv,VAL cd 

430 PRINT #42 CAT "nen PAUSE Os RUN 

440 CLS و‎ PRINT " DISK DATA-“HEADER READER" 

450 PRINT : PRINT " This displays the file info saved on eat 
h block along with the data" 

460 PRINT ۶ PRINT "BLE ~ The block number on disk" 

470 PRINT ٩ PRINT "NAME ~ The file name of the data" 

480 PRINT s PRINT "START - The start address of the code. Used 
for code only" 

490 FRINT s PRINT "LENGTH ~ The total length of the file." 

QOO PRINT s PRINT "LINES ^ The auto start line # for Basic pr 
ogs only. 45525 means anon autostart prog" 

LO FRINT '"'s' to pause = ‘a’ to quit" 

ad LET chez: INFUT "Send to (Mereen or (GCorinter "s; LINE a 

wat IF ate"p" OR داي‎ "P" THEN LET chad 

50 CLS : PRINT ۴۵۸۲۱ "BLE NAME START LENTH LINES" 

240 PRINT Schg'"———————— mm n e nn en s T 

DO PRINT Sog" = Quit 8 سس‎ paume Ent- Cont" 

Seo FORE Teaca O: RANDOMIZE USR Settrk: RANDOMIZE USK load: LET 
Sid=FPEEK $0020: LET tkheFEER Sook 

2970 FOR t0 TO tkw*2-—11 

WON IF INKEYÆ=" qg" THEN RUN 

Seo IF INkKEYEZS"s" THEN GO TO &30 

600 TF INKEY#=CHRE 13 THEM FORE trac,t:s RANDOMIZE USR settrk: G 
Q TO 620 

410 GO TO 600 

G20 RANDOMIZE USR Load 

AO IF PEEK uO = THEN RANDOMIZE USR &Scrol2: PRINT AT 20,01 

640 PRINT #eh PEER (butti) "TAB ۶ 

650 IF ۳۳۲۳ (buft1) 5O0 THEN : IF FEEK 40۵۱۱۴۰۳۱۱ rt THEN PRINT Sch 
PRINT #ehs "Block Number Error on Block "st 

660 IF PEEK (hufi) THEN PRINT #ehs GO TO 730 

670 FOR as (buf TO (۱۸۴ ۰۳ ۰۱ 

680 PRINT #chs CHRE PEEK ag 

690 NEXT a 

7OO PRINT Schi ۳ TAR ۸ PEER (ouf 12) 7 256*PEER. GCouf-rim)g" "g 


710 PRINT sch: TAB 2O, PERK تصش( تا‎ a3) gos 

720 PRINT Schi; TAB 26; PEEKE (buf ۳ من(‎ {buf +18) -+i 

720 IF Sid#=1 THEN LET tekt+ies PORE Trac, (PEER trac) +1 

740 RANDOMIZE USR Mextrk 

790 NEXT t 

760 BEEF .1,190 INFUT "End of Tracks "s LINE ada RUN 

770 STOF 

BOO CLS: PRINT PAPER 7; INE Og"ADDREG FEEE CHARACTER " 

810 FRINT Wär OFEN #35,"wO's PRINT #4: INFUT #0,0,22,51,201 PRIN 
T # FORE 16014,15: PRINT #4: CLEAR Oo 

B20 PRINT #33" BLOCK EDITOR" 

B20 PRINT #83 69 COMMANDS ۲ ¢ ۲ emme um mm ma une ee nme HO ENT- SCROLL'"'" SFO 
Gtep"'" Ne New Num"'" C- Char Str£"'" G- Goto Addr"'’" F- Find N 
um" '" Be Save Blok"'" Qe Main Menu'' 

3940 PRINT #33 ''" <2 EDIT LINE"''"-BUFFER INFO-"'" $0000 START" 
۰ "۰ S5114 END" 

35o PRINT INK 7s PAPER 10۸1 15,0” " 

Déco LET meless INPUT "Edit which Block F "stes IF tren THEN GO 
TO 890 

aeos PORE ۳۵ و‎ ۲ RANDOMIZE USRA eettrnoks PRINT AT 1,0;USR load 
SSS PRINT #44: GO TO BEER ۷ 

Qoo PRINT #232" Block = "a PEEK Tracg 

Dap PRINT INE 7s FAFER LAT 15,0" à 

900 PRINT AT 15,0s: INK 7: PAPER 8 

900 RANDOMIZE USK onnon: RUN 

910 REM --Compile start here -- 

90 LET Le=SO000s LET seroll=442008 LET Trace43900; LET sette kad 
4QOO0z: LET eavezsadoo 

"AO IF PEERK 2360925 THEN RANDOMIZE USR Scrolls PRINT AT 20,04 
940 FORE 225692, 2535: PRINT l TAR 7 PEER 1s TAB 12$: 

950 LET niels GO SUB 1290 

960 IF TNREY#s" " THEN (GO TO 960 

970 LET ate INKY: IF axXzc"" THEN DU TO 970 

930 IF aXzc"n" OR ae$z"N" THEN BEEF ,05,10:s GO TO 1220 

990 IF adele" OR aX-"G5" THEN BEEP .1,10: INFUT "Save back to Di 
ek (y) "se Bs IF $e tY" OR g&e"y" THEN GO TO 1100 

1000 IF ag="q" OR at=" Q" THEN GO TO 1450 

1010 IF at="c" OR afe g? THEN BEEF 05,10: INFUT AT 0,08 "Charact 
er or String "sns GO TO 11350 

1o020 IF a£$z"g" OR at="6" THEN BEEF .O5,108 INPUT "Enter New Addr 
ess "rl: PRINT AT 19,05: FOR asi TO 73 RANDOMIZE USA Scrolls NEX 
T as PRINT AT 15,088 GO TO ۵ 

1030 IF azz'"f" QR afe"F" THEN GO TO 1040 

1025 GO TO 1060 

1040: BEEF 05,10: INFUT "Search for which number "sbs PRINT ۵ 4 
FLASH 1; "Searching for "sb: FOR al TO 55120: IF PEEK a<>b THEN 
1 NEXT an INPUT "Sorry not found"s LINE at: GO TO 1060 

1050 INPUT i: LET leas FOR amil TO 7: RANDOMIZE WSR scrolls NEXT 
ar PRINT AT 15,03: GO TO 930 

1060 GO TO 1080 

1070 LET lzl—1: PRINT AT 23-(PEEK 22689) و‎ Di 

10580 IF ls50000 OR 1255114 THEN INPUT "Address out of Range ng سا‎ 
TNE ate LET adz"g": GO TO 1020 

LO? LET lzi-i: GO TO P30 


PRINT AT 20,0; 
SUB 1290: LET ls 


GO SUB 1290 


CHRE PEEK nl: RET 


PRINT v: ۳ 


PRINT AT 4,03 "Currant Head Speed is "ir 


GC) 


۲۱1 * 24۵ THEN FRINT 


SUB 1410: 


REM ass Resave Tracks 

RANDOMIZE USR Sektrk: RANDOMIZE USK save 
GO TO 1450 

30 SUB 1410 

LET 1-sINT v 

PRINT 
FRINT 


AT 15,05: FOR asi TO 46: PRINT " 
a: PRINT AT 15,0; 
FOR asi TO LEN # 


POKE 1,CODE nta) 


IF PEEK 2%489=% THEN RANDOMIZE USR Scroll 
PRINT 1; TAB 7;PEEK lg TAB 12»: LET ml=ls 


NEXT as GO TO 930 
LET possPEER 22489 

G0 SUE 1410s LET nlil-sINT v 

INPUT "New Number ne FOKE ۱ 
FRINT AT 15,03" 

FRINT AT ۵ و‎ ۸8 ۳۱۸1 ٩ TAB FEE ml; TAB 1 
PRINT AT 24-—-poms,0 

DU TO 1070 

IF PEEK 


a ll n 
۴ H 


“yun 
^6. P 


AND PEE 


۷ ۰ ke dAn 
mi es AA 


^r 


n l d tact d 
Tr acs 2 


RETURN 
1580 


THEN FRINT : 
O THEN GO TO 


FE EE 
PEERK 


IF PEEK nl1-254 THEN PRINT "Empty Cell" gs 
IF PEER mis249 THEN FRINT "Track Used" gt 
IF PEER niz249 THEN FRINT "Blocks End"; ۶ 
IF PEEK nmlsa52 THEN PRINT "Blek Start" ss 
IF FEEK 1e2595 THEM PRINT "Cell Start"; ۶ 
PRINT s RETURN 


IF PEEK 1245 THEN RETURN 

PRINT CHR PEEK 1: RETURN 

PRINT AT 15,0; 90245: LET vso: GO 
LET vimos: LET mzie4: FOR aso TO 4 
LET vev+(CODE SCREENS (15,a)~48) *m 
LET mzsm/10 

NEXT ar RETURN 

DU TO 10 

REM -Compile Ene 
REM Mead speed m~ 
LET Hep cle Som 22 

CLS GC SUB 2750 
CLS 


eases $e 


otter pap 


FORE Trac, QO: RANDOMIZE USR settrk: RANDOMIZE USR load 


) 1 it tom 
۵6 MS",O,"12 M 


A for new Head Speed" 


LET nxs"o061:220350" 
LET he (FEE Hespe) «2-1: 
PRINT "Enter O to 3 


PRINT ۳۱:۴ Ch) sh (nml 


NEXT 


1100 


1110: 


1120 
1130 
1140 
1150 
1160 
1170 
11800 
1190 
1200 
1*1 

i210 
L an 
1230 
1:240 
1230 
1:260 
1270 
1200 
1290 
URN 

1300 
1310 
اا ی بل 
l0‏ 
L240‏ 
150 
1:360 
1:570 
1280 
1:590 
1400 
1410 
1420 
1420 
1440 
1450 
1460 
1470 
14900 
1490 
1500 
1510 
19:20 
19530 
1540 


G",1,"20 MS",2,"XO0 MS",T,,,"Abort",4 
1550 INFUT "Enter O to 4 s "sh: IF h*4 THEN GO TO 1550 


1: BEEF .1,-7s RUN 
FORE Hepd,ht: 


Oa ۱۱۸۶ RUN 


RANDOMIZE USR settr 


1560 IF h=4 THEN : BEEF .1, 
13970 PRINT #4: FORE S8202,h: 
kr RANDOMIZE USR saver BEEP 
S80 


1590 
1600 CLS : PRINT AT وی و۵‎ REFORMAT a SINGLE BLOCK" 
1610 PRINT : ۲ "This will attempt to correct a bad block 
which may be either a Hard or Soft error." 
16:20 PRINT s: PRINT " Insert the Disk Editor disk in drive O so t 
he Format Code can be Loaded, "'' 
1450 PRINT "Enter Disk Interface Type"''"Larken","L", "Ramex", "R" 
; "Aer co" i "nar i "(1 iger " ۱ "jr 
16:54 PRINT ''"If Format code has already been loaded once since 
powermtup enter m~ "Zo" 
1640 INPUT "Enter Interface Type "gar 
1650 IF afs" A" OR at="al THEN LET t#="a"s GO TO 1700 
1660 IF afs L" OR a#ž="1" THEN LET t#2"1"5 (GO TO 1700 
1670 IF as="O" OR afz"o" THEN LET txs"o": GO TO 1700 
1680 IF afea RP DR afe er" THEN LET tbs'er"; GO TO 1700 
1685 IF at="s" OR af=" Z" THEN : GO TO 1720 
1690 GO TO 1640 
1700 PONE 227209,1002 PRINT #42 LOAD "FonrmiT.QOG"M-t£cODE 495000 
1710 IF PEER 537:220:-101 THEN CLS s PRINT AT 10,89" ۳ ۵۳۱۸ ] با م‎ ۳ 
Not Found": BEEF .1,1: BEEF aiaei: PAUSE Os FUN 
17:20 PRINT AT 3,028 FOR asi TO 16s PRINT " 
"s NEXT a 
17:20 INPUT " Insert Disk to be Altered "s LINE af 
1740 GO SUB 2110 
1790 INFUT "Enter Block # "sb: POKE trac,bs PRINT AT 10,08" Form 
ating Block "ib 
1760 INPUT "Ok to ReFormat (y) "af: IF adc"Y" OR at="y" THEN RA 
NDOMIZE USR Format 
1770s RUN 
1780 
1790 CLS s PRINT AT 2,0." This will create a Blank Catal og 
on the disk but not change the Disk Mame."''" All files wil 
i be deleted !'" 
1800 PRINT ''" Enter Drive Farameters' 
1810 GO SUB 2200 
1820 PRINT ''"Head Speed",h, "Sides", aa Tracks” ,numtr ks 
18:30 GO SUR 27950 
1940 INFUT "Ok to Init Catalog (y) "sas: IF ate"y" OR at=" Y° THE 
M FORE trac, O: RANDOMIZE USR settrk: RANDOMIZE USRA loads: 1 
ZE USR Fadies RANDOMIZE USK gseattrk: RANDOMIZE USK save 
18350 BEEF 441,108 RUN 
18360 
1870 
j 9890 
1890: CLS : POKE trac,O0: RANDOMIZE USR settrk: RANDOMIZE USR loa 
d 
18935 PRINT #4: GO TO FEER Cdrv 
1900 PRINT s PRINT " "s FLASH 1$" Enter Disk Name" 
1910 PRINT "Press STOR (SS ‘A’) to end name": PRINT 
1920: PRINT "Disk Name s "a 
LOO LET mec 
1940 LET aSXcINKEYST: IF TNEEY#=2"" THEN GO TO 1940 
1950 IF CODE a€=O THEN GO TO 1940 
1960 BEEF .O02,1 


CODE a£z12 THEN PRINT CHRE B: CHRE Saa CHRE 80s: LET msm-1: 
SOO 

TF CODE ate ی‎ ao 
PORE m, CODE af 
PRINT aX 
LET ۱۳۸ 
IF ۶ (۳۰۳ ES 
DU TO 1940. 


PORE my Ot 


IF 


THEN FORE m,O0s: GO TO 2040 


۰۲۲ THEN GO TO 2020 


2720s INPUT "Ok to 
abe" Y" THEN RANDO 


SLES 
OR 


BEEF BEEF «1,202 GO 
(y) LINE atf: IF age'ty" 
RANDOMIZE USR saver RUIN 


(1.501 
sa 
USR eettrks 
RUN 


PRINT Parameters"'s PRINT s: PRINT "Drive &' 


Sideg",a,"No of Tracks" ,numtrks 


"Drive و‎ 2 ۷1 "Hea 


GO TO 0 
REM 


FARAME TERS 
Drive O to 3 
DU TO 2150 

TO dvi LET dvedv-+i 
PORE ewy, a 


REM ** DRIVE 
INFUT "Enter 
TF dve THEN 
PRINT #4: (GO 
LET ase dvs 
FREE TURN 
FORE Hepd,O0: REM 620 12-1 20-2 3C 
INFUT "Head speed 6 12 20 30 MS ? "ih 

IF h=é OR hz12 OR hze20 OR hezo THEN GO TO 2240 
GO TO 210 


موی 
PC‏ 


IF hz6 THEN LET aso 
TF hela THEN LET ami 
IF helo THEN LET ase 
IF pe THEN LET asii 


FORE Hepe, a 

INPUT "Number of 
TF asi THEN GO TO 
IF a-2 THEN GO TO 
GO TO 2290 

PORE Neid, a 
INPUT "Number of Tracks 35,40 or 
FOKE Ntrk و‎ Nimt r ks 
RE TURN 
REM Display Track Map 
CLS : FORE trac,O: RANDOMIZE USR settrks 
PRINT #4: GO TO FEER Barv 
PRINT " TRACK MAP REPRESENTATION! s PRINT 
Blocks"‘’‘: FAFER 1;" O 1 2 A 4 


oi dee 
ee) 


NNI, 


SO ۵ Numtr ks 


RANDOMIZE USF Load 
"X = Ueed Blocks 
D é 7 8 Dis LET 1255 


FOR x:so TO 15 
PRINT x: TRAE 4; 
FÜR ys) TO 10 
PRINT ("XU AND PEEK 


lexz45)-0C00" AND FEER IAA)" "ss: LET 


- Free 


1970 


G0 TO 


19890 
1990 
2000 
AOLO 
2020 
e ORQ 
2040 


gave to catalog 


MIZE 
2050 
me OO 
mG) 7 
0800 
4n Q0 


d Speed",h,"No of 


2100 
2110 
jiu 
"i130 

pu al a ) 
2150 
4170 
21900 
2190 


eC) 


sos often 

as 1 
ند‎ and 
aan n 
2240 


a am vl C 


Kr OO) 
a.a P C 
ast 
nae C 
aC 
NR NU 


2x90 


EO 


ua 
AVES) 
2160 
ORTAS, 
ae) 
EE el 
nO 
C 
CCV A 
a400 
A410 
420 
auo 


Lele) 

2435 IF PEER Lean THEN GO TO 2460 

C440 NEXT ys PRINT 

245 O NEXT x 

2460 BEEF .05,20: PRINT SOr:"Preses any Key for Main Menu "s PAUSE 
Qu RUN 

4470 REM Bad blocks Mapout 

2480 CLS : PRINT AT BS, "One Moment Please" 

2490 FOR ass ZOO TO 43670: FORE a, Sow: NEXT a: LET pea hao 

2000 CLS s PRINT " BAD BLOCK SCAN” 

2010 FORE trac,O: RANDOMIZE USER سا‎ RANDOMIZE USR load 

LET esebEEk WOOL LET tebkEEk 50021‏ له 

awe PRINT AT 10,23 "Tracks "st,"Sides "ss 

S040 FOR aso TO tanei 

Sd PRINT AT 2,098 RANDOMIZE USA load: IF PEER 23680955222 THEN P 
ORE p,FEEK trac: LET pspt-l: PRINT AT 2,04" "* PRINT 
AT 2.085 

2HOO RANDOMIZE USR Nextreoks IF gei THEN RANDOMIZE USA nextreks LET 
amati 

E NEXT a 

2430 CLS و‎ PRINT "List of Rad blocks found" ’': FOR a=42500 TO 43 
& ZO 

2070 IF PEER بل هي‎ THEN GO TO 2620 

S600 PRINT PEER er Së 

2610 NEXT a 

Old PRINT ''"End"''"Total Found "gf pA BOO 

650 IF p-439500-0 THEN CLS : FRINT AT 3,2: "NO BAD BLOCKS FOUND" y 
PAUSE 200: RUN 

640 GO SUR 22790 

26:50 FAUSE 60: BEEF .1,10: FRINT '''''" Are you sure you want th 
ase Mapped Qut of the track map ۶ 

2660 INFUT "Map them out ? (y) "pa: IF ate"y" OR ate ۱۷۲۲ THEN GO 
TO 2480 

2670 CLS : FRINT AT .وت‎ "Mapping Aborted ۲ ۲ ۳ PAUSE 2O0: RUN 
2680 PORE trac,O: RANDOMIZE USR settrk:s RANDOMIZE USR load 

2090 FOR as ZOO TO 43670 

27200 IF" PEER amano THEN GO TO 2730 

47/410 FORE SOOR4-+RE ER a,24&8 

A/S NEXT a 

2/20 PORE trac,O0: RANDOMIZE USARA settrk: RANDOMIZE USR save 

2740 BEEF p iO: FUN 

AWO DEER 05,10: BEEF .059,10: INPUT " Disk must have Write prot 

ect Sa ee QE "s LINE af: RETURN 

6000 PRINT #4: SAVE "Editor, Bl" LINE 20: FRINT #4: SAVE "Edit. Ci 
"CODE 44000, 1000: PRINT #4: SAVE "EDbas. C1" CODE 60000, 4600 


